home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / cmpnew / cmpbind.c next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  9.1 KB  |  340 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "cmpbind.h"
  4. init_cmpbind(){do_init(VV);}
  5. /*    local entry for function C2BIND    */
  6.  
  7. static object LI1(V2)
  8.  
  9. register object V2;
  10. {     VMB1 VMS1 VMV1
  11. TTL:;
  12.     V4= structure_ref((V2),VV[0],1);
  13.     {object V3= /* INLINE-ARGS */V4;
  14.     if((V3!= VV[11]))goto T1;
  15.     if((structure_ref((V2),VV[0],3))==Cnil){
  16.     goto T3;}
  17.     princ_str("\n    ",VV[1]);
  18.     V5= structure_ref((V2),VV[0],2);
  19.     (void)((*(LnkLI12))(/* INLINE-ARGS */V5));
  20.     princ_str("=MMcons(",VV[1]);
  21.     V6= structure_ref((V2),VV[0],2);
  22.     (void)((*(LnkLI12))(/* INLINE-ARGS */V6));
  23.     princ_char(44,VV[1]);
  24.     (void)((VFUN_NARGS=0,(*(LnkLI13))()));
  25.     princ_str(");",VV[1]);
  26.     V7= structure_ref((V2),VV[0],2);
  27.     (void)((*(LnkLI14))(/* INLINE-ARGS */V7));
  28.     V8= (*(LnkLI15))();
  29.     {object V9 = structure_set((V2),VV[0],3,/* INLINE-ARGS */V8);
  30.     VMR1(V9)}
  31. T3:;
  32.     {object V10 = Cnil;
  33.     VMR1(V10)}
  34. T1:;
  35.     if((V3!= VV[16]))goto T16;
  36.     princ_str("\n    bds_bind(VV[",VV[1]);
  37.     V11= structure_ref((V2),VV[0],4);
  38.     (void)((*(LnkLI17))(/* INLINE-ARGS */V11));
  39.     princ_str("],",VV[1]);
  40.     V12= structure_ref((V2),VV[0],2);
  41.     (void)((*(LnkLI12))(/* INLINE-ARGS */V12));
  42.     princ_str(");",VV[1]);
  43.     setq(VV[2],make_cons(VV[3],symbol_value(VV[2])));
  44.     {object V13 = symbol_value(VV[2]);
  45.     VMR1(V13)}
  46. T16:;
  47.     if((V3!= VV[10]))goto T25;
  48.     V14= structure_ref((V2),VV[0],4);
  49.     if(!(type_of(/* INLINE-ARGS */V14)==t_fixnum||type_of(/* INLINE-ARGS */V14)==t_bignum)){
  50.     goto T27;}
  51.     princ_str("\n    base0[",VV[1]);
  52.     V15= structure_ref((V2),VV[0],4);
  53.     (void)((*(LnkLI17))(/* INLINE-ARGS */V15));
  54.     princ_str("]=",VV[1]);
  55.     V16= structure_ref((V2),VV[0],2);
  56.     (void)((*(LnkLI12))(/* INLINE-ARGS */V16));
  57.     princ_char(59,VV[1]);
  58.     {object V17 = Cnil;
  59.     VMR1(V17)}
  60. T27:;
  61.     {object V18 = (*(LnkLI18))();
  62.     VMR1(V18)}
  63. T25:;
  64.     if((V3!= VV[19]))goto T35;
  65.     princ_str("\n    SETQ_IO(V",VV[1]);
  66.     V19= structure_ref((V2),VV[0],4);
  67.     (void)((*(LnkLI17))(/* INLINE-ARGS */V19));
  68.     princ_char(44,VV[1]);
  69.     princ_char(86,VV[1]);
  70.     V20= structure_ref((V2),VV[0],4);
  71.     (void)((*(LnkLI17))(/* INLINE-ARGS */V20));
  72.     princ_str("alloc,",VV[1]);
  73.     princ_char(40,VV[1]);
  74.     V21= structure_ref((V2),VV[0],2);
  75.     (void)((*(LnkLI12))(/* INLINE-ARGS */V21));
  76.     princ_str("));",VV[1]);
  77.     {object V22 = Cnil;
  78.     VMR1(V22)}
  79. T35:;
  80.     princ_str("\n    V",VV[1]);
  81.     V23= structure_ref((V2),VV[0],4);
  82.     (void)((*(LnkLI17))(/* INLINE-ARGS */V23));
  83.     princ_char(61,VV[1]);
  84.     V25= structure_ref((V2),VV[0],1);
  85.     {object V24= /* INLINE-ARGS */V25;
  86.     if((V24!= VV[20]))goto T52;
  87.     goto T51;
  88. T52:;
  89.     if((V24!= VV[21]))goto T53;
  90.     princ_str("fix",VV[1]);
  91.     goto T51;
  92. T53:;
  93.     if((V24!= VV[22]))goto T55;
  94.     princ_str("char_code",VV[1]);
  95.     goto T51;
  96. T55:;
  97.     if((V24!= VV[23]))goto T57;
  98.     princ_str("lf",VV[1]);
  99.     goto T51;
  100. T57:;
  101.     if((V24!= VV[24]))goto T59;
  102.     princ_str("sf",VV[1]);
  103.     goto T51;
  104. T59:;
  105.     (void)((*(LnkLI25))());}
  106. T51:;
  107.     princ_char(40,VV[1]);
  108.     V26= structure_ref((V2),VV[0],2);
  109.     (void)((*(LnkLI12))(/* INLINE-ARGS */V26));
  110.     princ_str(");",VV[1]);
  111.     {object V27 = Cnil;
  112.     VMR1(V27)}}
  113. }
  114. /*    local entry for function C2BIND-LOC    */
  115.  
  116. static object LI2(V30,V31)
  117.  
  118. register object V30;register object V31;
  119. {     VMB2 VMS2 VMV2
  120.     bds_check;
  121. TTL:;
  122.     V33= structure_ref((V30),VV[0],1);
  123.     {object V32= /* INLINE-ARGS */V33;
  124.     if((V32!= VV[11]))goto T65;
  125.     if((structure_ref((V30),VV[0],3))==Cnil){
  126.     goto T67;}
  127.     princ_str("\n    ",VV[1]);
  128.     V34= structure_ref((V30),VV[0],2);
  129.     (void)((*(LnkLI12))(/* INLINE-ARGS */V34));
  130.     princ_str("=MMcons(",VV[1]);
  131.     (void)((*(LnkLI17))((V31)));
  132.     princ_char(44,VV[1]);
  133.     (void)((VFUN_NARGS=0,(*(LnkLI13))()));
  134.     princ_str(");",VV[1]);
  135.     V35= structure_ref((V30),VV[0],2);
  136.     (void)((*(LnkLI14))(/* INLINE-ARGS */V35));
  137.     V36= (*(LnkLI15))();
  138.     {object V37 = structure_set((V30),VV[0],3,/* INLINE-ARGS */V36);
  139.     VMR2(V37)}
  140. T67:;
  141.     princ_str("\n    ",VV[1]);
  142.     V38= structure_ref((V30),VV[0],2);
  143.     (void)((*(LnkLI12))(/* INLINE-ARGS */V38));
  144.     princ_str("= ",VV[1]);
  145.     (void)((*(LnkLI17))((V31)));
  146.     princ_char(59,VV[1]);
  147.     {object V39 = Cnil;
  148.     VMR2(V39)}
  149. T65:;
  150.     if((V32!= VV[16]))goto T84;
  151.     princ_str("\n    bds_bind(VV[",VV[1]);
  152.     V40= structure_ref((V30),VV[0],4);
  153.     (void)((*(LnkLI17))(/* INLINE-ARGS */V40));
  154.     princ_str("],",VV[1]);
  155.     (void)((*(LnkLI17))((V31)));
  156.     princ_str(");",VV[1]);
  157.     setq(VV[2],make_cons(VV[3],symbol_value(VV[2])));
  158.     {object V41 = symbol_value(VV[2]);
  159.     VMR2(V41)}
  160. T84:;
  161.     if((V32!= VV[10]))goto T92;
  162.     princ_str("\n    base0[",VV[1]);
  163.     V42= structure_ref((V30),VV[0],4);
  164.     (void)((*(LnkLI17))(/* INLINE-ARGS */V42));
  165.     princ_str("]=",VV[1]);
  166.     (void)((*(LnkLI17))((V31)));
  167.     princ_char(59,VV[1]);
  168.     {object V43 = Cnil;
  169.     VMR2(V43)}
  170. T92:;
  171.     if((V32!= VV[19]))goto T98;
  172.     bds_bind(VV[4],small_fixnum(0));
  173.     bds_bind(VV[5],symbol_value(VV[5]));
  174.     base[2]= VV[6];
  175.     vs_top=(vs_base=base+2)+1;
  176.     (void) (*Lnk26)();
  177.     vs_top=sup;
  178.     princ_str("\n    V",VV[1]);
  179.     V44= structure_ref((V30),VV[0],4);
  180.     (void)((*(LnkLI17))(/* INLINE-ARGS */V44));
  181.     princ_str("= ",VV[1]);
  182.     base[2]= (V31);
  183.     base[3]= (V30);
  184.     vs_top=(vs_base=base+2)+2;
  185.     (void) (*Lnk27)();
  186.     vs_top=sup;
  187.     princ_char(59,VV[1]);
  188.     {object V45 = (*(LnkLI28))();
  189.     bds_unwind1;
  190.     bds_unwind1;
  191.     VMR2(V45)}
  192. T98:;
  193.     princ_str("\n    V",VV[1]);
  194.     V46= structure_ref((V30),VV[0],4);
  195.     (void)((*(LnkLI17))(/* INLINE-ARGS */V46));
  196.     princ_str("= ",VV[1]);
  197.     V48= structure_ref((V30),VV[0],1);
  198.     {object V47= /* INLINE-ARGS */V48;
  199.     if((V47!= VV[20]))goto T115;
  200.     base[0]= (V31);
  201.     vs_top=(vs_base=base+0)+1;
  202.     (void) (*Lnk29)();
  203.     vs_top=sup;
  204.     goto T114;
  205. T115:;
  206.     if((V47!= VV[21]))goto T117;
  207.     base[0]= (V31);
  208.     vs_top=(vs_base=base+0)+1;
  209.     (void) (*Lnk30)();
  210.     vs_top=sup;
  211.     goto T114;
  212. T117:;
  213.     if((V47!= VV[22]))goto T119;
  214.     base[0]= (V31);
  215.     vs_top=(vs_base=base+0)+1;
  216.     (void) (*Lnk31)();
  217.     vs_top=sup;
  218.     goto T114;
  219. T119:;
  220.     if((V47!= VV[23]))goto T121;
  221.     base[0]= (V31);
  222.     vs_top=(vs_base=base+0)+1;
  223.     (void) (*Lnk32)();
  224.     vs_top=sup;
  225.     goto T114;
  226. T121:;
  227.     if((V47!= VV[24]))goto T123;
  228.     base[0]= (V31);
  229.     vs_top=(vs_base=base+0)+1;
  230.     (void) (*Lnk33)();
  231.     vs_top=sup;
  232.     goto T114;
  233. T123:;
  234.     (void)((*(LnkLI25))());}
  235. T114:;
  236.     princ_char(59,VV[1]);
  237.     {object V49 = Cnil;
  238.     VMR2(V49)}}
  239. }
  240. /*    local entry for function C2BIND-INIT    */
  241.  
  242. static object LI3(V52,V53)
  243.  
  244. register object V52;register object V53;
  245. {     VMB3 VMS3 VMV3
  246.     bds_check;
  247. TTL:;
  248.     V55= structure_ref((V52),VV[0],1);
  249.     {object V54= /* INLINE-ARGS */V55;
  250.     if((V54!= VV[11]))goto T126;
  251.     if((structure_ref((V52),VV[0],3))==Cnil){
  252.     goto T128;}
  253.     {object V56;
  254.     V56= list(2,VV[7],structure_ref((V52),VV[0],2));
  255.     bds_bind(VV[8],(V56));
  256.     V57= (*(LnkLI34))((V53));
  257.     bds_unwind1;
  258.     princ_str("\n    ",VV[1]);
  259.     (void)((*(LnkLI17))((V56)));
  260.     princ_str("=MMcons(",VV[1]);
  261.     (void)((*(LnkLI17))((V56)));
  262.     princ_char(44,VV[1]);
  263.     (void)((VFUN_NARGS=1,(*(LnkLI13))(symbol_value(VV[9]))));
  264.     princ_str(");",VV[1]);}
  265.     V58= structure_ref((V52),VV[0],2);
  266.     (void)((*(LnkLI14))(/* INLINE-ARGS */V58));
  267.     V59= (*(LnkLI15))();
  268.     {object V60 = structure_set((V52),VV[0],3,/* INLINE-ARGS */V59);
  269.     VMR3(V60)}
  270. T128:;
  271.     base[0]= list(2,VV[7],structure_ref((V52),VV[0],2));
  272.     bds_bind(VV[8],base[0]);
  273.     {object V61 = (*(LnkLI34))((V53));
  274.     bds_unwind1;
  275.     VMR3(V61)}
  276. T126:;
  277.     if((V54!= VV[16]))goto T143;
  278.     base[0]= list(2,VV[3],structure_ref((V52),VV[0],4));
  279.     bds_bind(VV[8],base[0]);
  280.     V62= (*(LnkLI34))((V53));
  281.     bds_unwind1;
  282.     setq(VV[2],make_cons(VV[3],symbol_value(VV[2])));
  283.     {object V63 = symbol_value(VV[2]);
  284.     VMR3(V63)}
  285. T143:;
  286.     if((V54!= VV[10]))goto T147;
  287.     base[0]= list(2,VV[10],structure_ref((V52),VV[0],4));
  288.     bds_bind(VV[8],base[0]);
  289.     {object V64 = (*(LnkLI34))((V53));
  290.     bds_unwind1;
  291.     VMR3(V64)}
  292. T147:;
  293.     if((V54== VV[20])
  294.     || (V54== VV[21])
  295.     || (V54== VV[22])
  296.     || (V54== VV[23])
  297.     || (V54== VV[24]))goto T150;
  298.     if((V54!= VV[19]))goto T149;
  299. T150:;
  300.     base[0]= list(3,VV[0],(V52),Cnil);
  301.     bds_bind(VV[8],base[0]);
  302.     {object V65 = (*(LnkLI34))((V53));
  303.     bds_unwind1;
  304.     VMR3(V65)}
  305. T149:;
  306.     {object V66 = (*(LnkLI25))();
  307.     VMR3(V66)}}
  308. }
  309. /*    local entry for function SET-BDS-BIND    */
  310.  
  311. static object LI4(V69,V70)
  312.  
  313. object V69;object V70;
  314. {     VMB4 VMS4 VMV4
  315. TTL:;
  316.     princ_str("\n    bds_bind(VV[",VV[1]);
  317.     (void)((*(LnkLI17))((V70)));
  318.     princ_str("],",VV[1]);
  319.     (void)((*(LnkLI17))((V69)));
  320.     princ_str(");",VV[1]);
  321.     {object V71 = Cnil;
  322.     VMR4(V71)}
  323. }
  324. static object  LnkTLI34(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[34],&LnkLI34,1,ap);} /* C2EXPR* */
  325. static LnkT33(){ call_or_link(VV[33],&Lnk33);} /* WT-SHORT-FLOAT-LOC */
  326. static LnkT32(){ call_or_link(VV[32],&Lnk32);} /* WT-LONG-FLOAT-LOC */
  327. static LnkT31(){ call_or_link(VV[31],&Lnk31);} /* WT-CHARACTER-LOC */
  328. static LnkT30(){ call_or_link(VV[30],&Lnk30);} /* WT-FIXNUM-LOC */
  329. static LnkT29(){ call_or_link(VV[29],&Lnk29);} /* WT-LOC */
  330. static object  LnkTLI28(){return call_proc0(VV[28],&LnkLI28);} /* CLOSE-INLINE-BLOCKS */
  331. static LnkT27(){ call_or_link(VV[27],&Lnk27);} /* WT-INTEGER-LOC */
  332. static LnkT26(){ call_or_link(VV[26],&Lnk26);} /* SAVE-AVMA */
  333. static object  LnkTLI25(){return call_proc0(VV[25],&LnkLI25);} /* BABOON */
  334. static object  LnkTLI18(){return call_proc0(VV[18],&LnkLI18);} /* WFS-ERROR */
  335. static object  LnkTLI17(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[17],&LnkLI17,1,ap);} /* WT1 */
  336. static object  LnkTLI15(){return call_proc0(VV[15],&LnkLI15);} /* CCB-VS-PUSH */
  337. static object  LnkTLI14(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[14],&LnkLI14,1,ap);} /* CLINK */
  338. static object  LnkTLI13(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[13],&LnkLI13,ap);} /* WT-CLINK */
  339. static object  LnkTLI12(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[12],&LnkLI12,1,ap);} /* WT-VS */
  340.